home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue67 / Threads / CriticalSection.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-11-01  |  368 b   |  21 lines
  1. unit CriticalSection;
  2. interface
  3. uses Sysutils,syncobjs;
  4. implementation
  5. var
  6.  csWriteToDisk:TCriticalSection;
  7. procedure WriteToDisk;
  8. begin
  9.  csWriteToDisk.Acquire;
  10.  try
  11.   //Code that writes to disk here.
  12.  finally
  13.   csWriteToDisk.Release;
  14.  end;
  15. end;
  16. initialization
  17.  csWriteToDisk:=TCriticalSection.Create;
  18. finalization
  19.  FreeAndNil(csWriteToDisk);
  20. end.
  21.